source(here::here("code/load.R"))

here("data/meta_analyses_raw/BarTraSau2020/MetaAnalysis Force and Force with conditions or Compromise 4_EDITED.xlsx") |>
  read_excel() |>
  mutate(meta_id = "BarTraSau2020",
         subfield = "IR",
         question = "Are women more reticent to use military force than men?",
         study_year = str_extract(Study,  "(?<=\\().+?(?=\\))"),
         overall_effect = "yes") |>
  select(meta_id,
         subfield,
         question,
         study_id = Study,
         study_year,
         estimate = Difference,
         std.error = Diff_se,
         sample_size = "N†",
         overall_effect) |>
  write_csv(here("data/meta_analyses_clean/BarTraSau2020.csv"))
